Userform question about IF w/outputs on multiple lines

Not a solution to the problem but can't you shorten this to:

Cells(emptyRow, 1).Value = Calendar1.Value
Cells(emptyRow, 3).Value = Score1.Value
Cells(emptyRow, 4).Value = Score2.Value


If Pointsform.Boxandre1.Value = True Then
    Cells(emptyRow, 2).Value = "André"
    
    Else
        
    End If

If Pointsform.boxsimon1.Value = True Then
    Cells(emptyRow, 2).Value = "Simon"
    
    Else
        
    End If


If Pointsform.boxpascal1.Value = True Then
    Cells(emptyRow, 2).Value = "Pascal"
    
    Else
        
    End If

If Pointsform.boxsylvain1.Value = True Then
    Cells(emptyRow, 2).Value = "Sylvain"
    
    Else
        
    End If

If Pointsform.boxthierry1.Value = True Then
    Cells(emptyRow, 2).Value = "Thierry"
    
    Else
        
    End If
    
If Pointsform.boxyve1.Value = True Then
    Cells(emptyRow, 2).Value = "Yvé"
    
    Else
        
    End If

If Pointsform.Boxandre2.Value = True Then
    Cells(emptyRow, 2).Value = "André"
    
    Else
        
    End If

If Pointsform.boxsimon2.Value = True Then
    Cells(emptyRow, 2).Value = "Simon"
    
    Else
        
    End If

If Pointsform.boxpascal2.Value = True Then
    Cells(emptyRow, 2).Value = "Pascal"
    
    Else
        
    End If

If Pointsform.boxsylvain2.Value = True Then
    Cells(emptyRow, 2).Value = "Sylvain"
    
    Else
        
    End If
    
If Pointsform.boxthierry2.Value = True Then
    Cells(emptyRow, 2).Value = "Thierry"
    
    Else
        
    End If

If Pointsform.boxyve2.Value = True Then
    Cells(emptyRow, 2).Value = "Yvé"
    
    Else
        
    End If