Sub Bouton1_QuandClic()
Dim Fichier As String, nom As String
Dim tablo As Variant
Dim ws As Worksheet
Dim i As Byte, colonne As Byte
Dim j As Integer
For Each ws In Worksheets
tablo = ws.Range('a1:c' & ws.Range('a65536').End(xlUp).Row)
For i = 1 To 2
If i = 1 Then
nom = 'francais': colonne = 2
Else
nom = 'anglais': colonne = 3
End If
Fichier = 'C:\\\\\\\\' & ws.Name & nom & ' .Txt'
Open Fichier For Output As #1
For j = 1 To UBound(tablo)
If Not tablo(j, 1) = '' And Not tablo(j, colonne) = '' Then
Print #1, tablo(j, 1) & '=' & tablo(j, colonne)
End If
Next j
Close
Next i
Next ws
End Sub