With r
.Offset(0, 0).Value = cbociv.Value 'colonne Civilité
.Offset(0, 1).Value = UCase(txtnom) 'colonne nom
.Offset(0, 2).Value = Proper(txtprenom) 'colonne prenom
.Offset(0, 4).Value = DateValue(txtnaiss) 'colonne date naissance
.Offset(0, 6).Value = txtad1 'colonne adresse1
.Offset(0, 7).Value = txtad2 'colonne adresse2
.Offset(0, 8).Value = txtcp 'colonne code postal
.Offset(0, 9).Value = txtville 'colonne ville
.Offset(0, 10).Value = CDbl(Replace(Replace(Replace(Replace(txtfixe, " ", ""), "-", ""), ".", ""), "/", "")) 'colonne téléphone
.Offset(0, 11).Value = CDbl(Replace(Replace(Replace(Replace(txtmob, " ", ""), "-", ""), ".", ""), "/", "")) 'colonne mobile
.Offset(0, 12).Value = txtmail 'colonne adresse mail
.Offset(0, 13).Value = DateValue(txtdatadhe) 'colonne date d'adhésion
.Offset(0, 15).Value = UCase(txtactif) 'colonne actif O/N
.Offset(0, 16).Formula = .Offset(-1, 16).Formula
End With