XL 2019 Copier/coller la ligne complète selon un critère présent dans la colonne

'Ajouter un nouvel étudiant
Private Sub AjouterEtudiant_Click()
Dim F As Worksheet, i&, vUSF
If GE_Section.ListIndex > -1 Then
Set F = Worksheets(GE_Section.Value)
Else
Exit Sub
End If
nextRow = F.Range("A" & Rows.Count).End(xlUp).Row + 1
flag = False
For i = 1 To nextRow
If F.Cells(i, "A") = GE_Nom.Text & " " & GE_Prenom.Text Then
flag = True
End If
Next i
If flag = False Then
        If (IsAlpha(GE_Nom.Text) Or InStr(1, GE_Nom.Text, "-") > 0 Or InStr(1, GE_Nom.Text, " ") > 0) And _
        (IsAlpha(GE_Prenom.Text) Or InStr(1, GE_Prenom.Text, "-") > 0 Or InStr(1, GE_Prenom.Text, " ") > 0) And _
        Len(GE_Nom) > 0 And Len(GE_Prenom) > 0 And (GE_Classe.Value <> "" And GE_Groupe.Value <> "" And (stageOUI = True Or stageNON = True)) Then
        vUSF = Array(GE_Nom.Text, GE_Prenom.Text, GE_Classe.Text, GE_Groupe.Text, GE_DateQuarantaine.Text)
        F.Cells(nextRow, "A").Resize(, 5).Value = vUSF
        F.Cells(nextRow, "F") = IIf(stageOUI, "Oui", "Non")
        F.Cells(nextRow, "G") = IIf(resultatPOSITIF, "Positif", "Négatif")
        F.Cells(nextRow, "H") = GE_dateRetour.Text
        F.Cells(nextRow, "K") = GE_Commentaire.Text
        Else
            MsgBox "Veuilles entrez toute les données nécéssaires"    'Si y'a pas assez d'argument, message d'erreur
        End If
    Else
        MsgBox "Cet élève est déjà répertorié"
    End If
End Sub